home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / NAMESP~1 / DDTREE2.FR_ / DDTREE2.FR
Text File  |  1997-06-04  |  7KB  |  210 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
  3. Object = "{688EB628-7DA2-11D0-95F0-0020AF07755A}#1.1#0"; "awddtree.ocx"
  4. Begin VB.Form frmSample2 
  5.    ClientHeight    =   3345
  6.    ClientLeft      =   285
  7.    ClientTop       =   960
  8.    ClientWidth     =   7815
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MDIChild        =   -1  'True
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   223
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   521
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.PictureBox picTmp 
  19.       Appearance      =   0  'Flat
  20.       AutoRedraw      =   -1  'True
  21.       BackColor       =   &H80000005&
  22.       BorderStyle     =   0  'None
  23.       ForeColor       =   &H80000008&
  24.       Height          =   555
  25.       Left            =   5220
  26.       ScaleHeight     =   37
  27.       ScaleMode       =   3  'Pixel
  28.       ScaleWidth      =   37
  29.       TabIndex        =   4
  30.       Top             =   2520
  31.       Visible         =   0   'False
  32.       Width           =   555
  33.    End
  34.    Begin VB.TextBox Text1 
  35.       BackColor       =   &H8000000F&
  36.       Height          =   795
  37.       Left            =   540
  38.       Locked          =   -1  'True
  39.       MultiLine       =   -1  'True
  40.       TabIndex        =   3
  41.       Text            =   "DDTree2.frx":0000
  42.       Top             =   600
  43.       Width           =   6375
  44.    End
  45.    Begin AWDDTREE.DDTree DDTree1 
  46.       Height          =   330
  47.       Left            =   540
  48.       TabIndex        =   1
  49.       Top             =   2220
  50.       Width           =   3075
  51.       _ExtentX        =   5424
  52.       _ExtentY        =   582
  53.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  54.          Name            =   "MS Sans Serif"
  55.          Size            =   8.25
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.    End
  63.    Begin VB.Label lblColor 
  64.       BorderStyle     =   1  'Fixed Single
  65.       Height          =   330
  66.       Left            =   4140
  67.       TabIndex        =   6
  68.       Top             =   2220
  69.       Width           =   2715
  70.    End
  71.    Begin VB.Label lblColorHex 
  72.       Height          =   195
  73.       Left            =   4140
  74.       TabIndex        =   5
  75.       Top             =   1980
  76.       Width           =   1215
  77.    End
  78.    Begin VB.Label Label1 
  79.       Caption         =   "Group Items:"
  80.       Height          =   195
  81.       Index           =   1
  82.       Left            =   540
  83.       TabIndex        =   2
  84.       Top             =   360
  85.       Width           =   2835
  86.    End
  87.    Begin VB.Label Label1 
  88.       Caption         =   "Sample ""Select a &Color"":"
  89.       Height          =   195
  90.       Index           =   0
  91.       Left            =   540
  92.       TabIndex        =   0
  93.       Top             =   1980
  94.       Width           =   3015
  95.    End
  96.    Begin ComctlLib.ImageList ImageList1 
  97.       Left            =   5880
  98.       Top             =   2520
  99.       _ExtentX        =   1005
  100.       _ExtentY        =   1005
  101.       BackColor       =   -2147483643
  102.       ImageWidth      =   16
  103.       ImageHeight     =   16
  104.       MaskColor       =   -2147483643
  105.       _Version        =   327680
  106.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  107.          NumListImages   =   3
  108.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  109.             Picture         =   "DDTree2.frx":00BF
  110.             Key             =   "Custom"
  111.          EndProperty
  112.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  113.             Picture         =   "DDTree2.frx":01D1
  114.             Key             =   "Standard"
  115.          EndProperty
  116.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  117.             Picture         =   "DDTree2.frx":02E3
  118.             Key             =   "System"
  119.          EndProperty
  120.       EndProperty
  121.    End
  122. End
  123. Attribute VB_Name = "frmSample2"
  124. Attribute VB_GlobalNameSpace = False
  125. Attribute VB_Creatable = False
  126. Attribute VB_PredeclaredId = True
  127. Attribute VB_Exposed = False
  128. Option Explicit
  129.  
  130. Private Sub DDTree1_Click()
  131.     If Len(DDTree1.SelectedItem.Tag) Then
  132.         lblColorHex = "&&H" & Hex$(DDTree1.SelectedItem.Tag)
  133.         lblColor.BackColor = DDTree1.SelectedItem.Tag
  134.     Else
  135.         lblColorHex = ""
  136.         lblColor.BackColor = vbButtonFace
  137.     End If
  138. End Sub
  139.  
  140. Private Sub Form_Load()
  141.     Const kCust = "Custom"
  142.     Const kStd = "Standard"
  143.     Const kSys = "System"
  144.     
  145.     picTmp.Width = 16
  146.     picTmp.Height = 16
  147.     
  148.     Set DDTree1.ImageList = ImageList1
  149.     Call DDTree1.Nodes.Add(, , kCust, "Custom...", kCust)
  150.     With DDTree1.Nodes.Add(, , kStd, kStd, kStd)
  151.         .Expanded = True
  152.         .Sorted = True
  153.     End With
  154.     With DDTree1.Nodes.Add(, , kSys, kSys, kSys)
  155.         .Expanded = True
  156.         .Sorted = True
  157.     End With
  158.     Set DDTree1.SelectedItem = DDTree1.Nodes(kSys)
  159.     Me.Show
  160.     DoEvents
  161.     
  162.     Call NodeAdd(kStd, "Black", vbBlack)
  163.     Call NodeAdd(kStd, "Red", vbRed)
  164.     Call NodeAdd(kStd, "Green", vbGreen)
  165.     Call NodeAdd(kStd, "Yellow", vbYellow)
  166.     Call NodeAdd(kStd, "Blue", vbBlue)
  167.     Call NodeAdd(kStd, "Magenta", vbMagenta)
  168.     Call NodeAdd(kStd, "Cyan", vbCyan)
  169.     Call NodeAdd(kStd, "White", vbWhite)
  170.     
  171.     Call NodeAdd(kSys, "Scroll Bars", vbScrollBars)
  172.     Call NodeAdd(kSys, "Desktop", vbDesktop)
  173.     Call NodeAdd(kSys, "Active Title Bar", vbActiveTitleBar)
  174.     Call NodeAdd(kSys, "Inactive Title Bar", vbInactiveTitleBar)
  175.     Call NodeAdd(kSys, "Menu Bar", vbMenuBar)
  176.     Call NodeAdd(kSys, "Window Background", vbWindowBackground)
  177.     Call NodeAdd(kSys, "Window Frame", vbWindowFrame)
  178.     Call NodeAdd(kSys, "Menu Text", vbMenuText)
  179.     Call NodeAdd(kSys, "Window Text", vbWindowText)
  180.     Call NodeAdd(kSys, "Title Bar Text", vbTitleBarText)
  181.     Call NodeAdd(kSys, "Active Border", vbActiveBorder)
  182.     Call NodeAdd(kSys, "Inactive Border", vbInactiveBorder)
  183.     Call NodeAdd(kSys, "Application Workspace", vbApplicationWorkspace)
  184.     Call NodeAdd(kSys, "Highlight", vbHighlight)
  185.     Call NodeAdd(kSys, "Highlight Text", vbHighlightText)
  186.     Call NodeAdd(kSys, "Button Face", vbButtonFace)
  187.     Call NodeAdd(kSys, "Button Shadow", vbButtonShadow)
  188.     Call NodeAdd(kSys, "Gray Text", vbGrayText)
  189.     Call NodeAdd(kSys, "Button Text", vbButtonText)
  190.     Call NodeAdd(kSys, "Inactive Caption Text", vbInactiveCaptionText)
  191.     Call NodeAdd(kSys, "3D Highlight", vb3DHighlight)
  192.     Call NodeAdd(kSys, "3D Dark Shadow", vb3DDKShadow)
  193.     Call NodeAdd(kSys, "3D Light", vb3DLight)
  194.     Call NodeAdd(kSys, "Info Text", vbInfoText)
  195.     Call NodeAdd(kSys, "Info Background", vbInfoBackground)
  196. End Sub
  197.  
  198. Function NodeAdd(sParentKey$, sName$, lColor&) As Node
  199.     picTmp.Cls
  200.     picTmp.Line (0, 0)-(14, 14), , B
  201.     picTmp.Line (1, 1)-(13, 13), lColor, BF
  202.     Call ImageList1.ListImages.Add(, sName, picTmp.Image)
  203.     With DDTree1.Nodes.Add(sParentKey, tvwChild, sName, sName, sName)
  204.         .Tag = lColor
  205.     End With
  206. End Function
  207.  
  208.  
  209.  
  210.